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NESTE NÚMERO 





PROGRAMAÇÃO DE MELODIAS NO MICRO 


Notação musical. Tonalidade. Cálculo do valor da 
duração e da tonalidade de uma nota. Um gabari- 
to musical. Bemóis, sustenidos, acidentes fixos. Rit- 
mo. Tradução de uma melodia. Andamento. Ta- 
bela de conversão............ciiii Sa 741 





UM VIDEOGAME EM ASSEMBLER 


Estrutura geral do jogo. A estrutura do programa. 
Programas Basic que auxiliam a montagem. Os có- 
digos. Tabelas de dados em ASCII. Criação das 
quatro telas. Rotinas da ROM. Impressão de ca- 
racteres na tela. Programação de pausas. Limpe- 
za da tela. Correção de erros .................. 7/48 


O JOGO DO OTELO (1) 


Estrutura e regras do jogo. Dicas para vencer. A 
primeira tela. Seleção dos gráficos para o tabulei- 
ro e as peças. Inicialização do jogo. Digitando a 
rotina principal. A vez do jogador. Rotina para de- 
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PROGRAMAÇÃO DE 
MELODIAS NO MICRO 


Seu micro é capaz de executar, 
sozinho, melodias inteiras. 

Aprenda a converter partituras 

em linhas de programas BASIC e ouça, 
então, suas canções prediletas. 


A música compõe-se de dois elemen- 
tos básicos: som e ritmo. Nosso primei- 
ro artigo sobre musica em micros (veja 


página 721) limitou-se à produção de 
notas musicais. O computador emitia 
uma nota conforme a tecla pressionada 


e o ritmo ficava a cargo do usuário. 
Mostraremos agora como informar ao 











computador o ritmo desejado. Além dis- 
so, daremos as noções de notação mu- 
sical necessárias à tradução de qualquer 
partitura, o que lhe permitirá executar 
no micro sua melodia predileta. 





NOTAÇÃO MUSICAL 


Em geral, as partituras musicais são 
escritas em um ou dois grupos de cinco 
linhas horizontais, paralelas e equidis- 
tantes, denominados pauta. Sobre uma 
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ou entre duas linhas colocam-se os sim- 
bolos que representam as notas. A po- 
sição destas na pauta, no sentido verti- 
cal, determina a tonalidade; no sentido 
horizontal, a ordem de execução. O for- 
mato dos simbolos, por sua vez, deter- 
mina a duração da nota. 

Notas alinhadas verticalmente devem 
ser tocadas ao mesmo tempo, em acor- 
des; estes, porém, não foram incluídos 
em nossos programas, que só tocam 
uma nota de cada vez. 

Linhas verticais, as barras dividem 
a música em grupos de notas, A dura- 
ção de cada um desses grupos deve ser 
a mesma, embora cada um deles possa 
ter um número diferente de notas. 
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TONALIDADE 


O programa que apresentamos no ar- 
tigo anterior transformou seu computa- 
dor em uma espécie de instrumento mu- 
sical. Como você já deve ter observado, 
ele funciona muito bem. Contudo, o nú- 
mero de melodias que pode executar é 
reduzido, em razão do pequeno núme- 
ro de notas disponíveis. Além disso, O 
usuário, que, muitas vezes, jamais to- 
cou qualquer tipo de instrumento, é 
obrigado a executar cada música. 

Pode-se facilmente converter uma 
partitura nos números que o computa- 
dor precisa para tocá-la, mesmo sem ter 
grandes informações sobre música. Na 
página 743, fornecemos uma tabela de 
conversão justamente com esta finalida- 
de. Antes, porém, devemos ampliar um 
pouco nossos conhecimentos a respeito 
de notação musical, 





LER EM VEZ DE OUVIR 


A figura 1 exibe um trecho de parti- 
tura. Nela estão representadas todas as 
notas disponíveis no teclado, em uma sé- 
rie crescente — é a chamada escala cro- 
mática. 


Os símbolos no início das pautas são 
denominados claves: o da pauta de ci- 
ma é a clave de sol, mais aguda; o da 
pauta de baixo, a clave de fá, mais gra- 
ve. As claves determinam a tonalidade 
da pauta. Sem uma clave, as mesmas 
notas poderiam ser tocadas numa tona- 
lidade mais alta ou mais baixa. 

Os símbolos das notas ficam sempre 
entre duas ou exatamente sobre uma das 
linhas da pauta. Para escrever as notas 
que ficam acima ou abaixo destas, 
usam-se linhas suplementares. Na figu- 
ra 1, por exemplo, a oitava e as três úl- 
timas notas estão desenhadas sobre li- 
nhas suplementares. 

Para colocar as notas da partitura em 
um programa BASIC é necessário cal- 
cular os valores da duração bem como 
de tonalidade correspondentes a cada 
uma delas. Qualquer pessoa pode se 
confundir nessa demorada tarefa. Mas 
não desanime: há uma maneira mais fá- 
cil de realizá-la. 

Voltemos à figura 1: observe que ca- 
da tecla foi marcada com um valor de 
| a 37. Esses números serão usados pa- 
ra calcular aqueles que, efetivamente, 
farão parte do programa. 

Poderíamos consultar a mesma figu- 
ra sempre que quiséssemos “traduzir” 
uma melodia, mas o processo de com- 





paração entre a partitura e o desenho 
também seria bastante cansativo. Para 
simplificar o trabalho, o mais prático se- 
ria o uso de um dispositivo ou “gabari- 
to” que, colocado sobre qualquer nota 
de partitura, mostrasse o valor corres- 
pondente à sua tonalidade. 


UM GABARITO MUSICAL 





Não há nenhum segredo na constru- 
ção de um dispositivo desse tipo: preci- 
samos simplesmente desenhar uma es- 
cala musical numa folha de papel, o que 
leva alguns poucos minutos. Provavel- 
mente, melodias diferentes exigirão ga- 
baritos diferentes, já que o tamanho das 
pautas pode variar. 

A primeira coisa a fazer é pôr o pa- 
pel sobre a partitura e copiar as linhas 
das pautas, indicando todas as possíveis 
posições verticais de uma nota. Em se- 
guida, basta assinalar o valor correspon- 
dente a cada marca. Para identificar os 
valores que deveremos usar nos progra- 
mas, colocamos o gabarito sobre a par- 
titura e lemos nota por nota com sua 
ajuda, 

Os valores correspondentes a cada to- 
nalidade estão representados na tabela 
de conversão. O Spectrum, o Apple e o 
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TK-2000 usam números, enquanto o 
MSX e o TRS-Color usam letras. Para 
saber o que escrever junto a cada mar- 
ca do gabarito, compare os números da 
figura 1 com os da tabela e procure o 
valor correspondente na coluna dedica- 
da ao seu micro. 





| BEMÓIS E SUSTENIDOS 


Nem todas as melodias são escritas na 
escala “C maior" (“dó maior”, como 
vimos no artigo anterior); portanto, às 
vezes precisaremos traduzir ós bemóis e 
sustenidos das partituras. 

Se observarmos os acidentes fixos — 
explicados mais adiante —, distinguire- 
mos os bemóis ou sustenidos da canção. 
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Poderemos, assim, substituir o valor da 
nota natural no gabarito pelo valor do 
bemol ou do sustenido. 

Bemóis e sustenidos são as teclas pre- 
tas, e o valor de suas tonalidades está 
na tabela. O menor valor de um € sus- 
tenido é 2 (usando os números da esca- 
la principal da tabela, você descobrirá 
o valor correspondente em sua máqui- 
na). D bemol tem o mesmo valor, que 
está entre 1 e 3 (valores de Ce D, res- 
pectivamente). 

Símbolos para bemóis e sustenidos 
não foram introduzidos na figura 1 pa- 
ra não torná-la confusa. Quando se quer 
representar o sustenido de uma nota, ela 
aparece precedida pelo símbolo corres- 
pondente (parecido com o caracter & 
“cardinal”” de seu computador). Da 






































Como o computador produz sons? 

Para que um dispositivo digital, co- 
mo o computador, possa gerar um fe- 
nômeno analógico (continuamente va- 
riável em intensidade), como o som, é 
necessário ligá-lo a um aparelho espe- 
cial, chamado conversor digital-analó- 
gico (DA), Este tem a função de con- 
verter uma lista de números armazena- 
da ou gerada no computador em uma 
onda continuamente variável. 

No nosso caso, cada número da lis- 
ta representa a amplitude ou intensida- 
de da onda em um determinado mo- 
mento. À lista de números, com valo- 
res de amplitude tomados a intervalos 
regulares (geralmente milissegundos), 
constitui, assim, uma amostragem da 
onda a ser produzida. O inverso do in- 
tervalo de amostragem, denominado 
frequência de amostragem, depende- 
rá da frequência máxima que à som de- 
ve atingir. 

O conversor analógico-digital (AD) 
funciona de modo inverso ao conver- 
sor DA, transformando uma onda ana- 
lógica em uma lista de números, Esse | 
dispositivo é utilizado, por exemplo, em | 
sistemas de reconhecimento de voz pa- 
ra microcomputadores ou na conversão 
de entradas provenientes de joysticks 
analógicos. 

O conversor DA só pode ser empre- 
gado nos micros que dispõem de gera- 
dores internos de sons, como o TRS- 
Color, o MSX e o Spectrum. Colocan- 
do-se vários conversores DA lado a la- 
do, a placa geradora de som desses mi- 
cros torna-se capaz de emitir várias no- 
tas ao mesmo tempo. 
































mesma maneira, símbolos de bemol (pa- 
recidos com um b minúsculo) precedem 
as notas correspondentes. 

A figura 2 mostra as primeiras notas 
“C maior”, incluindo bemóis e suste- 
nidos, na clave de sol. Observe que € 
sustenido e D bemol são a mesma nota, 
mas ocupam posições verticais diferen- 
tes na pauta. Notas isoladas podem, as- 
sim, representar bemóis e sustenidos, 
desde que sejam precedidas pelos sim- 
bolos correspondentes — denominados 
acidentes. O efeito de um acidente du- 
ra, para a nota que o segue, até a próxi- 
ma barra, a menos que seja cancelado 
antes do fim do compasso. E um tercei- 
ro símbolo, chamado bequadro, que 
cancela o acidente e restaura a tonalida- 
de natural da nota. A figura 3 mostra 
um trecho de partitura onde aparece um 
G sustenido. O G seguinte tem sua to- 
nalidade natural preservada pelo bequa- 
dro que o precede. 


ACIDENTES FIXOS 


Quando uma canção é executada em 
uma escala que inclui um bemol ou um 
sustenido, essa nota será usada o tem- 
po todo, no lugar do valor natural cor- 
respondente. Para evitar a repetição do 
símbolo, ele é colocado após a clave, no 
início da pauta. Nesse local, o símbolo 
é chamado de acidente fixo e, por meio 
dele, pode-se identificar a escala em que 
é tocada a canção. 

A ausência de um acidente fixo indi- 
ca que a escala é “C maior”, e, ao con- 
trário, qualquer acidente fixo indica que 
se trata de outra escala. Se, por exem- 
plo, uma pauta apresenta um sustenido 
como acidente fixo na linha do F, todos 
os F, em todas as oitavas, serão sus- 
tenidos. 

No artigo anterior, mostramos que 
um F sustenido é necessário para preser- 
var o arranjo de intervalos na escala “'B 
maior”. Um sustenido na posição do F 
como acidente fixo indica ao músico que 
a melodia foi escrita em “B maior”. 
Não se esqueça, portanto, de modificar 


no gabarito os valores das tonalidades 
correspondentes, sempre que a partitu- 
ra tiver acidentes fixos. 

A figura 4 mostra um trecho de par- 
titura em “F maior”. Nele vemos um 
acidente fixo bemol. Os valores das to- 
nalidades estão indicados: note que o da 
quarta nota, um B bemol, é 23. Aqui o 
gabarito revela toda a sua utilidade. Se 
a música que está sendo transcrita tem 
um B bemol como acidente fixo, colo- 
camos o valor correspondente ao bemol 
na marca do B. Assim, a tradução dos 
acidentes se torna tão fácil quanto a das 
notas naturais. 

Mas tenha cuidado: muitas vezes al- 
guns acidentes isolados — e naturais iso- 
lados — têm prioridade sobre os aciden- 
tes fixos. 


| RITMO Ea 


Depois de calcular a tonalidade das 
notas, devemos cuidar da duração de ca- 
da uma delas e da tradução das pausas, 
que têm seus próprios simbolos. A figu- 
ra 5 mostra os símbolos das notas e das 
pausas com duração equivalente e o va- 
lor relativo da duração, 

Durações relativas são utilizadas pa- 
ra que um andamento — velocidade de 
execução — defina, posteriormente, a 
verdadeira duração. Podemos, assim, 
experimentar diversos andamentos, até 
que um deles nos soe melhor. O progra- 
ma do final do artigo permitirá esse ti- 
po de ajuste. 

As pausas mais longas são represen- 
tadas por meio de pequenos retângulos 
pretos, desenhados acima ou abaixo da 
linha média da pauta. Quando um pon- 
to sucede uma nota ou uma pausa, sua 
duração é multiplicada por um e meio. 
Uma nota pontuada duas vezes tem uma 
duração uma vez e três quartos maior 
que a nota sem pontos. 

Além do acidente fixo, junto à clave 
aparecem dois algarismos, dispostos co- 
mo fração numérica. O de baixo indica 
a espécie de notas em que o compasso 
está dividido; o de cima, o número des- 
sas notas no compasso. Na figura 6, por 
exemplo, vemos a fração 6/8 depois da 
clave, o que significa que há seis col- 
cheias por compasso. 

Para nossos fins essas noções de no- 
tação musical são suficientes: vamos ape- 
nas transcrever à partitura para criar um 
programa. 


TRADUÇÃO DE UMA MELODIA 





Vamos agora traduzir uma pequena 
partitura em números (ou letras, confor- 





SELEÇÃO DE PARTITURAS 
Se você sabe ler partituras, não te- 


rá a menor dificuldade em encontrar as 


músicas de sua preferência para “to- 
car ' no computador, usando o progra- 
ma deste artigo. Mas, se você dispõe 
apenas de noções elementares de no- 
tação musical, precisará contornar 
suas deficiências selecionando partitu- 
ras simplificadas. Uma excelente fon- 
te são os álbuns de exercícios musicais 
para iniciantes de instrumentos menos 
complexos, como a flauta doce. Neles, 
melodias não harmonizadas (isto é, 
sem acordes) são apresentadas na for- 
ma de partituras tão simples que você 
não terá dificuldade nenhuma em 
acompanhar. 

A seleção de músicas será um pou- 
co mais difícil para quem não lê abso- 
lutamente nada de uma partitura. Mas, 
ainda assim, resta o popular recurso de 
“tocar por números”, Alguns fabrican- 





tes de instrumentos musicais para | 


crianças publicam partituras em que as 
notas são acompanhadas por números. 
Estes indicam a tecla a ser pressiona- 
da. Estabelecendo a correspondência 
entre os números e as teclas do com- 
putador, você poderá executar músicas 
completas sem saber sequer o que é 
um “dó”. 


me sua máquina) que o computador 
possa utilizar para determinar tonalida- 
des e durações de notas. 

A figura 6 mostra a partitura de uma 
canção infantil inglesa, Three Blind Mi- 
ce (Três Ratinhos Cegos) acompanhada 
dos números que representam a tonali- 
dade na escala principal, previamente 
definida. Para identificar os números 
correspondentes em seu computador, 
use a tabela de conversão. Os valores pa- 
ra a duração relativa também estão in- 
dicados. 

Observando a partitura em questão, 
você verá que, sempre que três colcheias 
(veja figura 5) aparecem juntas, elas são 
ligadas por um traço horizontal. Não es- 
tranhe: a única finalidade dessa forma 
de notação — não obrigatória — é fa- 
cilitar a leitura. As notas permanecem 
exatamente as mesmas, não havendo 
modificações nem na altura nem na 
duração. 

Já no oitavo compasso, há duas no- 
tas ligadas, mas por uma linha curva, € 
não reta. Nesse caso há mudança: a li- 
nha, chamada ligadura, indica que a se- 
gunda nota não deve soar separadamen- 
























te, Ou seja, que o som da primeira se 
prolongará pelo tempo correspondente 
à duração de ambas as notas. Poderia- 
mos ter, também, ligaduras com várias 
notas. Para transcrevê-las em dados 
computáveis, bastaria somar as dura- 
ções correspondentes, o que nos daria 
uma nota mais longa. 


LINHAS DATA 





Os números das tonalidades e dura- 
ções devem ser colocados em linhas DA- 
TA, para que o programa possa obté- 
los com READ no decorrer da execu- 
ção. Os números correspondentes à can- 
ção da figura 6 foram incorporados ao 
programa dessa maneira. Cada linha 
contém dois compassos (exceto no TR5- 
Color e no MSX), o que torna mais fá- 
cil a compreensão das linhas DATA, 

A duração total de cada compasso 
deve ser a mesma — doze unidades, no 
nosso caso. Assim, se você transcrever 
uma música € O ritmo parecer incorre- 
to, verifique se cada compasso tem a 
mesma duração, corrigindo os erros en- 
contrados. Use as funções de edição de 
seu computador para duplicar compas- 





sos iguais ou semelhantes, economizan- 
do tempo de digitação. 


ANDAMENTO 





Os valores da duração de cada nota 
são relativos, já que podemos variar o 
andamento (velocidade) que se imprime 
à execução de um trecho da melodia. O 
programa solicita um valor para o an- 
damento, logo que é executado. Como 
valores menores correspondem a maio- 
res velocidades de execução, podemos 
considerar o valor que fornecemos co- 
mo o inverso do andamento. 

Há um detalhe importante sobre o 
funcionamento do programa que se apli- 
ca a todos os micros. Suponhamos que 
a melodia contenha um compasso com 
uma única nota bem longa, seguido por 
outro compasso com várias notas cur- 
tas. No segundo caso, as linhas que léem 
e testam os dados são executadas mais 
vezes que no primeiro. Devido ao tem- 
po de operação extra, a velocidade de 
execução do segundo compasso será um 
pouco menor. Deve-se imprimir, por- 
tanto, a maior velocidade possivel à exe- 
cução dessas linhas BASIC. Por isso, 


] 


não há no programa linhas que testem 
o fim dos dados: o programa termina 
simplesmente com uma mensagem de er- 
ro indicando que não há mais dados. 

Se, porém, ao traduzir suas músicas 
prediletas, você quiser um final mais ele- 
gante, coloque um laço FOR...NEXT 
que leia exatamente a quantidade de nu- 
meros que as linhas DATA contém. 

Seguem-se os programas que execu- 
tam a partitura da figura 6. 


LO INPUT "TEMPO (1-50)",£E: 
LET t=t/100 

20 1F t<0.00) OR £>20.5 THEN 
GOTO 10 

30 FOR n=0 TO 1 STEP O: READ 
ab: SOUND a*£t,b: NEXT n 

100 DATA 6,4,6,2,12,0,6,4,6,2, 
12,0 

110 DATA 647,9 ,5, 2,0, 4248,047, 
4,58,2,58,10,4,2,1 

120 DATA 4,12,2,12,2,11,2,9,2, 
1] 

130 DATA d,1lZ,4 / 

40 DATA 2,12, 2,1422122 E LlçE 
9, 2.114 
150 DATA 4,1 
160 DATA 2,1] 
o ARG AS 

170 DATA 4,12,2,7,4,/ 
180 DATA 6,4,6,2,12 


Ao rodar o programa, devemos res- 
ponder, com um número entre 1 e 50, 
à solicitação do computador de um va- 
lor para o andamento. Como já foi ex- 
plicado, trata-se do inverso do anda- 
mento. O programa nada mais faz do 
que multiplicar cada duração pelo va- 
lor do andamento — portanto, quanto 
maior o valor, menor a velocidade. 

Usamos o inverso do andamento pa- 
ra tornar o programa mais simples e rá- 
pido. Um comando IF...THEN verifi- 
ca se o andamento está na faixa permi- 
tida. A linha 30 executa a melodia. Um 
laço FOR...NEXT obtém com READ 


| 
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dois valores para cada nota: um para a 
tonalidade e outro para a duração. Um 
comando SOUND emite o som antes 
que outros dados sejam lidos. 

Ao executar suas próprias canções, 
acerte os valores do laço FOR...NEXT 
para a leitura do número exato de no- 
tas. Por enquanto, o laço nunca termi- 
na, pois tem um STEP de valor 0. 


“7 RS RT) 


10 INPUT "ANDAMENTO (1-50)":TP 
Z0 IF TP<1l THEN 10 

30 PLAY "T'+STRSCINT(IZ+223/TP) 
) . 

40 FOR I=1 TO 48 

50 READ AS,D 

60 PLAY "L"+STAS (INT(1+63/D))+" 
O3"+AS 

70 NEXT 1 
1000 DATA E 
1010 DATA E 
1020 DATA G 
1030 DATA G 


25 2524 22 24 


25 20 20 20 20 





e o coloca logo após “L”'. O “03” que | 
se segue determina a oitava (eventual- | 
mente, é cancelado pelo ''04”” de uma 
nota). Finalmente, a variável AS esta- 
belece a altura da nota. 

Para executar a música, usamos um 
laço FOR...NEXT (linhas 40 a 70). Evi- 
tamos, assim, a emissão de uma men- 
sagem de erro que, além de deselegan- 
te, causa problemas no MSX. Como es- 
se computador possui um microproces- 
sador específico para a produção de 
sons, a música continua tocando, mes- 
mo após a execução do programa. Ha- | 
vendo uma mensagem de erro, o siste- 
ma operacional do MSX suspende ime- 
diatamente todas as atividades periféri- 
cas em andamento — tela gráfica, mo- 
tor do gravador e som. Assim, se dei- 
xássemos passar um erro, a música se- 
ria interrompida. ) 


+ - RE 


O RS 


25 20 20 20 





10 HOME li 
20 FOR I=O0OTO 22: READ A: PO ci 
E KE 800 + L,A: NEXT Ú 
E Br 30 DATA 160,0,174,133,3,238,4 q 
222 Sao SEE ge dee 8,192,136,208,5,206,132,3,240,6 4 
,202,208,245,76,34,3,96 | 
40 INPUT "ANDAMENTO (1-50)";T 
S0T=T/3.3 ny 
60 READ A,B dy 
70 POKE 900,1 + B * T: POKE 90 ly 
L,A: CALL 800 Zé 
80 FOR IT = 1 TOl100: NEXT cl 


90 GOTO 60 


100 DATA 76,6,85,6,96,12 | ta 
L1O DATA 76,6,85,6.96.12 d 
120 DATA 64,6,72,4,72,2,76,12 | | 
130 DATA 64,6,72,4,72,2,76,10 : 


,64,2 ! 


140 DATA 47,4,47,2,50,2,56,2, 
1040 DATA G,2,040,4,040,2,B,2,A 50.92 ! 
12,8,2,04C,4,6,2,6,4,6,2 150 DATA 47,4,64,2,64,4,64,2 1 [( 
1050 DATA 04C,2,04€,2,04C,2,B,2 160 DATA 47.2.47.2.47.2.50,2, À 
542,8, 2,040,4,0,2,0,2,0,2,0,2 60.2,50.3 


1060 DATA 04C,4,04C,2,B,2,A,2,B 
12,/040,2,6,2,6,2,6,4,F,2 
1070 DATA E,6,D,6,€,12 
























O programa do MSX começa pedin- 
do que o usuário informe o andamento 
desejado. A linha 20 verifica se o valor 
escolhido é válido — se não for, o pro- 
grama volta à linha 10. A linha 30 cui- 
da de estabelecer o andamento, selecio- 
nando um valor adequado para o argu- 
mento'*T*' do comando PLAY, O va- 
lor escolhido no início deve ser transfor- 
mado em cordão pela instrução STRS, 
para que possa servir como argumento 
de PLAY. | 

A linha 50 obtém os valores de tona- 
lidade e duração das notas. A linha 60 
produz o som, também usando o co- 
mando PLAY. Para determinar a dura- 
ção de cada nota, STR$ transforma em 
cordão o valor obtido nas linhas DATA 








O 


170 DATA 47,4,64,2,64,2,64,2, 
64,42 

180 DATA 47/,4,47,2,50,2,56,2 
90,2 

190 DATA 47,2,64,2,64,2,64,4, 
[Rd 

200 DATA 76,6,85,6,96,12 


O programa do Apple usa a rotina 
em código explicada no artigo da pági- 
na 706. As linhas 20 e 30 colocam essa 
rotina na memória, depois que o HO- 
ME da linha 10 limpou a tela. 

A linha 40 solicita o valor desejado 
para o andamento da canção e a linha 
50 corrige seu valor. O fator de corre- 
ção aqui escolhido é compativel com du- 
rações relativas com valores até 16 (se- 
mibreve). Como em nossa canção não 
existem notas com duração tão longa, 
podemos alterar o valor para 2.5, se qui- 
sermos. Nesse caso, porém, a duração 
máxima dé cada nota deverá ser 12 (mi- 
nima pontuada). 

A linha 60 obtém os valores de tona- 
lidade e duração e à linha 70 cabe exe- 
cutar a nota. Para chamarmos a rotina 
(CALL 800) que produz o som, o ende- 
reço 900 deve conter a duração e o 901, 
a tonalidade. 

O problema de tempo, que mencio- 
namos ao tratar dos demais computa- 
dores, não se aplica ao micro Apple. A 
linha 80 produz um pequeno atraso, fa- 
zendo com que a música não seja exe- 
cutada muito rapidamente. 

A linha 90 manda o programa de vol- 
ta à linha 60 para que o programa obte- 
nha o valor de uma nova nota. O pro- 
grama termina com uma mensagem de 
erro, informando o fim dos dados, 


Embora o programa anterior funcio- 
ne no TK-2000, seus usuários devem fa- 
zer algumas modificações. Primeiro, co- 
mo a rotina de produção de sons não é 
necessária, as linhas 20 e 30 podem ser 
apagadas. Além disso, devemos substi- 





tuir os comandos na linha 70 do progra- 
ma do Apple pelo comando SOUND. A 
linha 80 também precisa ser modifica- 
da, já que o TK-2000 é mais lento que 
o Apple. Aqui estão as modificações: 


!0 SOUND A, 1+B*T 
80 FOR 1=1 TO 40:NEXT 


10 INPUT*ANDAMENTO (1-50)";TP 
20 IF TP<l THEN 10 

J0 READ AS,D 

40 PLAY"T"+STRS (INT (1+255/(TP*D 
J)J)J+TO3T+AS 
50 GOTO 30 
1000 DATA E, 


6,D,6,€,12 
1010 DATA E,6,D,6,C,12 
1020 DATA G,6,F,4,F,2,E,12 
1030 DATA G,6,F,4,F,2,E,12 
1040 DATA 04C€,4,04C,2,B,2,A,2,B 
/4,04C,4,6,2,6,4,6,2 
1050 DATA 04C,2,04C,2,04C,2,B,2 
(A,2,B,2,04C,2,6,2,6,2,6,2,6,2 
1060 DATA 04C,4,04C,2,B,2,A,2,B 
,/2,04C,2,6,2,6,2,6,4,F,2 


1070 DATA E,12,D,12,C,12 


O programa do TRS-Color começa 
pedindo o valor da velocidade de exe- 
cução desejada — ou andamento — por 
meio de um comando INPUT. 




























LELLO 


A linha 20 verifica se o valor forne- 
cido está dentro dos limites válidos, re- 
tornando à linha 10 se o andamento for 
menor que 1. 

A linha 30 lê dois valores para cada 
nota: um para a tonalidade — represen- 
tada por meio de uma letra — e outro 
para a duração. Para simbolizar os sus- 
tenidos, usamos um sinal “cardinal”” ou 
um ''mais"” antes da nota e, para os be- 
móis, um sinal ““menos”” no mesmo lu- 
gar. A linha 40 toca a nota, através de 
um comando PLAY. O T entre aspas 
faz com que O número que vem a seguir, 
entre 1 e 255, determine o andamento 
da melodia. Esse número é calculado 
invertendo-se o valor inicialmente for- 
necido ao programa, Para ser utilizado 
como argumento de PLAY, o número 
deve ser convertido em um cordão por 
intermédio do comando STRS. 

O cordão “03'' seleciona a oltava 
apropriada; a parte final da linha ( + AS) 
cuida da tonalidade da nota. 

Após produzir o som de uma nota, 
o programa volta à linha 30, onde 
READ lê um novo par de dados nas li- 
nhas DATA. Isto se repete até que o 
conteúdo das linhas DATA se esgote. O 
programa é interrompido com uma 
mensagem de erro, ao tentar prosseguir 
a leitura de dados — que já acabaram. 

































































Começamos aqui a programação de um 
videogame completo: Avalanche. Em cada 
nova seção você encontrará uma 
surpresa... e aprenderá um pouquinho 
mais sobre código de máquina! 


Os princípios mais importantes da 
linguagem de máquina podem ser ensi- 
nados por meio da programação de jo- 
gos. E, sem dúvida, aprender desse jei- 
to é muito mais divertido. Desenvolve- 
mos, assim, um videogame completo, 
especialmente construído para demons- 
trar os recursos de programação do 
Spectrum, do MSX e do TRS-Color. 
Não haverá programas para as linhas 
Apple, TK-2000, TRS-80 e ZX-81. 

Avalanche é um videorame no estilo 
de Keystone Kappers, exigindo rapidez e 
agilidade do jogador, que precisa cor- 
rer e saltar para escapar dos perigos que 
o ameaçam. 

Serão criadas quatro telas, uma pa- 
ra cada nível de dificuldade — o jogo 
- vai se tornando cada vez mais difícil. O 
personagem central de toda a ação é 


Willie. lost heroi decide. fazer um pi- 


ha à beira- 





“passeio pelas - | 
teta cabritos monteses 
p anche por toda a encos- 





"UM VIDEOGAME 
EM ASSEMBLER 





sará ir até o topo da montanha — o que 
deve fazer o mais rápido possível, 
levando-se em conta que a maré está su- 
bindo. Willie morrerá afogado se não 
chegar lá em cima à tempo. 

Na primeira etapa do jogo, nosso he- 
rói é bombardeado por uma avalanche 
de pedras que rolam montanha abaixo. 
Para isso, utilizamos a primeira tela, que 
mostra as pedras descendo a encosta. 
Willie precisa saltá-las, se-quiser conti- 
nuar vivo — qualquer descuido pode ser 
fatal, A corrida e os saltos do persona- 
gem são controlados pelas teclas Ne M, 
Se uma pedra atinpi-lo, é morte certa, 
Felizmente, ele tem cinco vidas, 

Quando Willie chega ao topo da 
montanha e recupera parte do que per- 
deu, é obrigado a voltar ao nível do mar, 
O jogo recomeça, então, na segunda te- 
la. Desta vez, ao tentar subir o monte, 


cos, verdadeiras armadilhas cavadas na | 
encosta. Se cair num deles ficará enter- 
rado,.. e morto. 

Chegando ao cume-da segunda mon- 
tanha, nosso herói será colocado aos pés 
da terceira e precisará enfrentar uma no- 
va escalada. A encosta continua cheia 
de buracos, mas, agora, cada um deles 
é habitado por uma serpente venenosa, 
ar tentará picar o personggem quan- 

este saltar: 


Na q tela, Willie terá que. mos - < 


encontrará pelo caminho enormes bura- | 






























trar toda a sua habilidade, pois será À 
bombardeado pela avalanche enquanto | 
salta sobre os buracos habitados pelas: 
serpentes ““assassinas” 

Nas quatro etapas do jogo a rapidez 
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é fundamental, pois a maré está sempre 
subindo. Os pontos do jogador são con- 
tados conforme seu sucesso em escalar 
a montanha, havendo um bônus para 
quem conseguir passar as quatro telas 
sem perder nenhuma vida. 

Além de ensinar os truques da pro- 
gramação em código de máquina, Ava- 
lanche é um jogo envolvente e cheio de 
emoções. Publicaremos suas seções em 
várias partes. O funcionamento de ca- 
da uma e seu papel na estrutura global 
do programa serão explicados detalha- 
damente na medida em que forem apre- 
sentadas. Sempre que possível, indica- 
remos as alternativas de utilização de de- 
terminadas rotinas. No final da série, 
você terá um videogame tão bom como 
os disponíveis em cartuchos. 


A ESTRUTURA DO PROGRAMA 





O cenário e os caracteres móveis são 
todos desenhados com blocos gráficos. 
Colocamos o cenário na tela por meio 
de laços que obtêm os caracteres corres- 
pondentes em bancos de blocos criados 
previamente na memória. 

Os buracos e as cobras são superpos- 
tos ao cenário original, de maneira que 
não precisamos redesenhá-lo para mon- 
tar as demais telas. 

A parte principal do programa con- 
siste em uma rotina de controle que de- 
termina o andamento e a prioridade dos 
eventos. Cada evento em si é executado 
por uma sub-rotina especifica. 

A animação do personagem central 
e das serpentes “assassinas” é feita em 
saltos de meio caractere, procedimento 
viabilizado pela criação de dois conjun- 
tos de caracteres. 

Com esse tipo de animação, pode-se 
obter suavidade nos movimentos sem 
complicar demais o programa ou atrasá- 
lo — o que comprometeria o desenvol- 
vimento do jogo, já que a velocidade, 
no caso, é muito importante. 


A primeira coisa que se programa em 
qualquer jogo é uma tela exibindo o ti- 
tulo. Embora a rotina de impressão es- 
teja em código de máquina, será mais 
fácil colocar as letras na memória usan- 
do um programa BASIC, 

Antes de executar o programa, pro- 
teja a região da memória corresponden- 
te com CLEAR 57434, 


LO LET X=57435 


o 20 READ AS 


FOR N=1 TO 38 

POKE X,CODE AS(N) 

LET XK=X+1 

NEXT N 

DATA "AVALANCHECRIACAO:A.D 
QEPROGRAMA: P. CLARK” 


O programa cria na memória uma ta- 
bela com os códigos ASCII das letras 
que compõem a tela. Essa parte da me- 
mória deve ser gravada juntamente com 
o resto do programa em código; assim, 
na realidade, o programa BASIC não 
será necessário à execução do Jogo. 
Grave-o, contudo, para auxiliar na 
montagem do programa completo, 

Para que o Assembler de INPUT 
funcione a contento, faça as seguintes 
modificações: na linha 5120, troque o 
número 6 por 22; na linha 6110, adicio- 
ne :GOSUB 6150; na linha 6150 troque 
GOSUB 6260 por GOSUB 6160. Carre- 
gue, então, o Assembler e digite esta pri- 
meira rotina: 


REM org 58035 
REM ti call cl 
BEM ld a,?2 

REM out 254,a 
REM ld a,lé6 
REM ld (23624),a 
REM ld ix,57/435 
REM b,9 

HEM a, 70 
REM h1,299 
REM call me 
REM ld b,15 
REM ld a,? 

REM 1d h1,616 
REM call me 
REM ld b,18B 
REM ld h1,6/7/9 
REM call me 
REM ld b,2 

REM ldp ld h1,65000 
REM ld de,0 
REM lda dec hl 
REM push hl 
REM sbc hl,de 
REM pop hl 

REM 3r nz, ldg 
REM danz ldp 
REM nop 

REM nop 

REM nop 

REM nop 

REM nop 

REM nop 

REM nop 

308 REM nop 

310 BEM ret 


Grave os mnemônicos usando a op- 
ção correspondente do Assembler. De- 
pois, monte a primeira rotina e grave o 
programa em código — se preciso, re- 
corra ao monitor de linguagem de má- 
quina. Digite, então, mais esta rotina: 


250 
260 
270 
280 
290 
3400 
301 
302 
303 
304 
305 
306 
307 


10 REM org 58146 
20 REM ktt 1d a,253 


30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
1/0 
180 
190 
200 
210 
220 
230 
241) 
258) 
260 
270 
280 
290) 
300 
310 
320 
330 
340 
+50 
360 
170 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
a90 
500 
510 
520 


530 
540 
AMO 
560 
h70 
580 
590 
601 
b LO 
620 
6 30 
640) 
b50 
660 
670 
680) 
590 
700 
PIO 
20 
730 
40 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
HEM 
REM 
REM 
REM 
HEM 
REM 
REM 
REM 
REM 
HEM 
REM 
REM 
REM 
REM 
REM 
HEM 


1n a, Zhdá 

bit 1,a 

jr nz,kKtt 

ret 

me push bc 
push af 

ld a, (1x+0) 
call asc 

pop af 

call printf 
inc hl 

Ino àX 

pop bc 

dnz me 

ret 

asc push hl 
ld h1,1h608 
ld de,B 

ld b,3l 

sub b 

ash add hl,de 
dec a 

jr nz,ash 
push hl 

pop bc 

pop hi 

ret 

cl ld 1x,16384 
ld h1,6912 

ld a,o 
clp ld 
1nC: 1X 
dec hl 
push hl 
Jd de,0 
sbc hl,de 
pop hl 

XX nz,cip 
ret 

print push af 
push hl 

push bc 

push hl 

pop de 

ld a,d 

Ccp:l 

ãr c,next 
push de 

ld de,1792 
add hl,de 


pop de 

ld a,d 

CP dl 

xr zenext 
push de 

ld de,1/942 
add hl,de 
pop de 

next push de 
ld de,16384 
add hl,de 
pop de 


ld a,8B 

pop bc 

push af 

rept ld a, (bc) 
ld (hl),a 

inc h 

inc be 

pop af 

dec a 

3r grexit 


(1x+0),a 





'50 HEM push af 

760 REM 3r crept 

70 REM exit pop hl 
at) REM pop af 

'90 REM push de 

A00 REM ld de,22528B 
R|0O REM add hl,de 
B20 BEM pop de 

nã90 REM ld (hl),a 
B40 HEM push de 

850 REM pop hl 

HE) REM ret 


Grave essas duas rotinas separada- 
mente. O programa pode ser executado 
pelo comando RAND USR 58035, co- 
mo de costume. Lembre-se, porém, de 
que a tabela com dados em ASCII — 
que começa em 57435 — deve estar na 
memória para que o programa funcione. 


O PROGRAMA BASIC 





O programa escrito em BASIC 
resume-se a um laço FOR...NEXT que 
coloca as letras das palavras da página 
inicial na memória, formando uma ta- 
bela ASCII que o programa em código 
pode utilizar. Ele apenas ajuda a mon- 
tar O programa, não sendo necessário ao 
funcionamento do jogo depois que a ta- 
bela tiver sido gravada. 


oscóDicos 


O programa consiste em uma rotina 
principal que chama as demais rotinas. 
Podemos, assim, cuidar de cada rotina 
separadamente, o que facilita muito a 
detecção e correção de erros. 

A primeira instrução call cl chama a 
sub-rotina de limpeza da tela. Os co- 
mandos ld a,2 e out 254,a definem as co- 
res da borda, como foi explicado na pá- 
gina 556. O uso do comando out modi- 
fica apenas temporariamente a cor da 
moldura. Para tornarmos essa alteração 
permanente, precisamos modificar o va- 
lor da variável do sistema corresponden- 
te, que fica na posição 23624. 

A cor da moldura especificada no co- 
mando out é 2, ou vermelho. Mas, pa- 
ra que o 2 seja colocado em 23624, de- 
vemos “deslocá-lo” — operação SHIFT 
— três bits para a esquerda, resultando 
no valor 16. 





| IMPRESSÃO NA TELA 


A rotina rotulada com me controla 
a impressão de caracteres na tela. Cer- 
tos parâmetros devem ser fornecidos a 
ela para que possa imprimir o texto cor- 
reto na posição desejada. 
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” 


O comando ld ix,57435 coloca no re- 
gistro IX o endereço do primeiro byte 
da tabela ASCII, a fim de que a rotina 
de impressão saiba o que imprimir. 

O acumulador contém o atributo do 
caractere que será impresso. Tanto em 
linguagem de máquina quanto em BA- 
SIC o funcionamento é o mesmo. Quan- 
do o bit 7 está ligado, o caractere é cin- 
tilante — FLASH. O bit 6 dá brilho ao 
caractere — BRIGHT. Os próximos três 
bits determinam a cor do fundo, e os 
três seguintes são responsáveis pela cor 
dos caracteres. 

No programa-fonte, colocamos 70 — 
01000110 em binário —, que tem o bit 
6 ligado, os bits que controlam a cor do 
fundo nulos e os bits dos caracteres va- 
lendo 6. Teremos, assim, caracteres 
amarelos sobre fundo preto, brilhante 
e não cintilante. 

O registro B funciona como contador 
de caracteres. O valor nele colocado de- 
termina o comprimento do texto que se- 
rá impresso, Na primeira vez que a ro- 
tina me é chamada, B contém 9 — as 
nove letras de AVALANCHE, 

O registro HL contém a posição da 
tela a partir da qual o texto deve ser im- 
presso. Essa posição é calculada em nú- 
meros de posições a partir do canto es- 
querdo da tela. Quando HL contém 
139, o primeiro caractere da primeira ca- 
deia de caracteres — ou seja, o “A” de 


AVALANCHE — é colocado na quin- 
ta linha da tela, onze posições a partir 
do lado esquerdo. 

A rotina me é chamada três vezes pa- 
ra imprimir cada uma das três linhas da 
tela inicial. 





PROGRAMAÇÃO DE PAUSAS 


Para que o jogador possa ler o titu- 
lo, devemos incluir uma pausa no pro- 
grama. Colocamos 2 no registro B, de 
modo que o laço responsável pela pau- 
sa seja executado duas vezes. 

O número 65000 é colocado no regis- 
tro HL. O conteúdo desse par diminui 
em uma unidade a cada volta do laço in- 
terno — rotulado com Idg. HL e guar- 
dado e recuperado da pilha somente pa- 
ra ganharmos tempo. 

Pode parecer estranho subtrair zero 
— conteúdo de DE — de HL a cada vol- 
ta do laço. Mas trata-se apenas de um 
recurso utilizado para afetar o indica- 
dor de zeros, que não reage à instrução 
pop. O comando jr nz depende desse in- 
dicador para que o programa possa sair 
do laço. Quando HL for reduzido a ze- 
ro e sub hl, de executar a próxima sub- 
tração, o resultado obtido será zero; ati- 
vado o indicador de zeros, o processa- 
dor sairá do laço. 

Quando completo, o programa pros- 





Rj! 











seguirá imprimindo a página de instru- 
ções. Mas, por enquanto, a instrução ret 
provoca o retorno ao BASIC. 

Não se importe com os comandos 
nop que aparecem no final do progra- 
ma. Eles não têm nenhum efeito sobre 
o microprocessador e sua função aqui 
é somente preencher espaço. 


ROTINAS AUXILIARES 





Algumas rotinas de apoio ao progra- 
ma principal foram montadas. A que 
tem o rótulo ktt aguarda que pressione- 
mos uma certa tecla, e ainda não será 
usada. O princípio de verificação do te- 
clado aqui utilizado é igual ao explica- 
do no artigo da página 381. 

Arotina me, encarregada de contro- 
lar a impressão na tela, começa guar- 
dando os conteúdos de BC e AF na pi- 
lha. Em seguida, o conteúdo da posição 
de memória apontada pelo registro IX 
(que contém o endereço inicial da tabe- 
la ASCII) é colocado no acumulador 
por ld a,(ix + 0), comando que emprega 
o endereçamento indexado. 

Os registros IX e IY são chamados de 
registros-índices, e dispõem de dezesseis 
bits para acomodar um endereço de me- 
mória. A sintaxe desse tipo de coman- 
do — muito utilizado, aliás, quando tra- 
balhamos com tabelas — é ix+d ou 
iv + d, onde d é um valor entre O e 256 
que pode ser somado ao endereço apon- 
tado pelo registro-índice. 

Depois de colocar em A o código do 
caractere que deve ser impresso na tela, 
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o programa chama a sub-rotina asc, que 
calcula a posição do padrão do caracte- 
re dentro de uma tabela de padrões exis- 
tente na ROM (veja o artigo da página 
381). O endereço inicial do padrão do 
caractere está em BC, quando o proces- 
sador retorna da sub-rotina. Recupera- 
se o valor de AF da pilha e uma nova 
sub-rotina — lIprint, que cuida da im- 
pressão propriamente dita — é chama- 
da. Quando o processador retorna de 
Iprint, HL contém a posição da tela on- 
de houve impressão — na realidade, a 
posição do byte superior do padrão do 
caractere. A instrução inc hl aumenta es- 
te valor em uma unidade. O indice IX 
também é aumentado, passando a apon- 
tar para a próxima letra da tabela 
ASCII. 

O par BC (B continha originalmente 
o comprimento do texto a ser impresso) 
é recuperado da pilha; enquanto seu 
conteúdo não for zero, a instrução djnz 
me diminui B em uma unidade e repete 
o processo de impressão. 

A rotina asc calcula a posição do pa- 
drão do caractere a ser impresso. Em 
primeiro lugar, ela coloca temporaria- 
mente na pilha, por push hl, a posição 
de impressão que está em HL, pois va- 
mos usar esse par de registros. Nele é co- 
locado o endereço inicial da tabela de 
padrões — 15608. O número 8 é, então, 
colocado em DE e o 31, em B. A ins- 
trução sub b subtrai 31 de A. A opera- 
ção é necessária porque a tabela de pa- 
drões começa com o caractere de códi- 
go 32 — espaço em branco. Os códigos 
com valores menores que 32 são coman- 
dos BASIC e não caracteres. 

Um caractere é formado por oito 
bytes, cada qual correspondendo ao pa- 
drão de uma das linhas que compõem 
a letra. Assim, cada oito bytes consecu- 
tivos na tabela de padrões correspondem 
a um caractere. O laço com o rótulo ash 
vai pulando de oito em oito bytes, até 
encontrar a posição do caractere que 
queremos imprimir. Para isso, utiliza A 
como contador. Em outras palavras, 
add hl,de soma 8 a HL e dec a subtrai 
um de A. A instrução jr nz, ash repete 
o processo até que A se reduza a zero. 
O endereço do byte inicial do padrão de- 
sejado estará, então, em HL. Este va- 
lor é transferido para a pilha e, em se- 
guida, recuperado em BC. O valor ori- 
ginal de HL — posição na tela — tam- 
bém é recuperado da pilha e a sub-rotina 
termina. 

A sub-rotina Iprint cuida da impres- 
são do caractere. Ela começa guardan- 
do na pilha os pares AF, HL e BC. A 
continha o atributo do caractere, HL, 


"a posição de impressão na tela, e BC, 


o endereço inicial do padrão do carac- 


| 
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tere. As linhas seguintes realizam uma 
série de testes com a posição de impres- 
são. Ao final deles, DE contém a posi- 
ção de impressão na tela. 

O programa continua no rótulo next. 
Ali, push de coloca a posição de impres- 
são na pilha e Id de,16384 coloca em DE 
o endereço inicial da tela. O endereço da 
RAM em que vamos colocar o padrão 
do caractere é a soma da posição de im- 
pressão com o endereço inicial da tela 
— add hl,de. O resultado fica em HL. 
Recupera-se a posição de impressão em 
DE e o acumulador recebe o valor 8. BC 
recupera o endereço inicial do padrão € 
AF é colocado na pilha, onde A servirá 
de contador. 

O rótulo rept representa o laço que 
desenha a letra. A instrução ld a,(bc) co- 
loca em A o byte que contém uma linha 
do caractere e Id (hl),a transfere este 
mesmo valor para a tela, BC aponta pa- 
ra a tabela de padrões, enquanto HL 
aponta para a tela. A instrução inc h so- 
ma uma unidade ao registro H, o que 
equivale a somar 256 a HL. O valor re- 
sultante aponta para o byte imediata- 
mente inferior ao anterior, de maneira 
que o caractere é desenhado linha por 
linha. 

BC também tem seu conteúdo au- 
mentado em uma unidade por inc bc. O 
contador do laço é recuperado da pilha 
— pop af — e A é diminuído em uma 
unidade. Se A não for igual a zero, a ins- 
trução jr z,exit é ignorada, AF volta pa- 
ra a pilha e o processador retorna para 
desenhar mais uma linha do caractere. 

Como A continha inicialmente o va- 
lor 8, serão desenhadas exatamente oi- 
to linhas, uma abaixo da outra, comple- 
tando uma letra. Quando A contém ze- 
ro, jr z,exit desvia o programa para O 
rótulo exit. O atributo do caractere é, 
então, colocado na tabela de atributos. 
Esse parâmetro determina a cor do ca- 
ractere. Recupera-se a posição de im- 
pressão em HL e o atributo vai para A 
— pop hl e pop af. 

O conteúdo de DE volta para a pilha 
e este par recebe o endereço inicial da 
tabela de atributos — 22528. A instru- 
ção add hi,de calcula o endereço da 
RAM correspondente e o atributo é co- 
locado nele por Id (hl),a. A posição de 
impressão na tela, preservada ora em 
DE, ora na pilha, volta para HL e a sub- 
rotina termina. 

A sub-rotina cl limpa a tela, sendo 
chamada diversas vezes no decorrer do 
programa. Primeiro, o registro IX rece- 
be o endereço inicial da tela — 16384. 
HL, por sua vez, recebe o número de 
bytes da mesma — 6912 —, servindo co- 
mo contador. A instrução Id a,0 coloca 
OQ em A. A instrução ld (ix + 0),a coloca 











O na posição da tela apontada por IX, 
o que, efetivamente, limpa aquele byte. 
O registro IX, aumentado em uma uni- 
dade, passa a apontar para o próximo 
byte da tela. HL é diminuído em uma 
unidade e, enquanto não chegar ao va- 
lor zero, a instrução jr nz,clp retornará 
para apagar o próximo byte da tela. Na 
realidade, existem quatro linhas entre 
dec hl e jr nz,clp; contudo, elas só têm 
a função de prolongar o tempo, como 
o rótulo Idq da rotina anterior. 


O Se 


A primeira coisa a programar é uma 
página anunciando o videogame. As li- 
nhas seguintes criam essa página, obten- 
do os dados necessários em uma tabe- 
la, que montaremos mais tarde. Por en- 
quanto, carregue o Assembler de IN- 
PUT com as seguintes modificações, pa- 
ra que funcione de maneira satisfatória: 
na linha 5120, troque o número 6 por 
22; na linha 6110, adicione :GOSUB 
6150; na linha 6150, troque GOSUB 
6260 por GOSUB 6160. Modifique a li- 
nha 5000 com CLEAR 1500,&CFFF, 
para proteger o topo da memória. Di- 
gite, em seguida, este programa: 


20 org -12288 
20 call 108 

30 ld de, 296 

40 ld h1,-14000 
50 ld bc,9 

60 call 92 

70 ld de,493I 

BO ld h1l,-13991 
90 Id b€,15 

100 call 52 

110 ld de,572 
120 ld hl,-13976 
130 ld bc,18B 
140 call 92 

150 ld b,I0 

160 ldp ld h1l, 65000 
170 ld de,0 

180 ldq dec hi] 
190 push hl 

200 abc hl,de 
210 pop hl1 

220 3r nz, Idq 
230 djnz ldp 
241) ret 

250 end 


Grave o programa-fonte e depois 
monte-o. O programa em código pode 
ser gravado depois disso. 


OS CÓDIGOS 





O programa liga a tela de texto de 
quarenta colunas por intermédio de uma 
rotina da ROM cujo endereço é 108, em 
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decimal. Em seguida, reserva uma por- 
ção da memória para os códigos ASCII 
do texto a ser impresso. Ela começa no 
endereço -14000. 

Uma outra rotina da ROM, que fica 
no endereço 92, encarrega-se da trans- 
ferência de uma área da RAM para a 
VRAM. Para que o texto certo seja co- 
locado na posição desejada, certos pa- 
râmetros devem ser fornecidos, 

O par DE precisa conter a posição 
inicial da área da VRAM em que vamos 
colocar o texto. O par HL, por sua vez, 
contém o endereço inicial da área da 
RAM que será transferida. BC, final- 
mente, funciona como contador de 
bytes, determinando que comprimento 
terá o texto que vai ser impresso. 

Essa rotina da ROM é chamada três 
vezes, uma para cada linha que aparece 
na tela inicial. Antes de cada comando 
call, os valores adequados são coloca- 
dos nos pares DE, HL e BC. 





PROGRAMAÇÃO DE PAUSAS 


Para que o jogador possa ler o títu- 
lo, devemos incluir uma pausa no pro- 
grama. Colocamos 10 no registro B, de 
modo que o laço responsável pela pau- 
sa seja executado dez vezes. 

O número 65000 é colocado em HL, 
cujo conteúdo diminui em uma unida- 
de a cada volta do laço interno — rotu- 
lado com ldg. HL é guardado e recupe- 
rado da pilha só para ganharmos tempo. 

Pode parecer estranho subtrair zero 
— conteúdo de DE — de HL a cada vol- 
ta do laço. Mas trata-se apenas de um 


| | 


recurso utilizado para afetar o indica- 
dor de zeros, que não reage à instrução 
pop. O comando jr nz depende desse in- 
dicador para que o programa possa sair 
do laço. Quando HL for reduzido a ze- 
ro e sub hl, de subtrair zero dele, o re- 
sultado será igual a zero; ativado o in- 
dicador de zeros, o processador sairá do 
laço. 

Quando o programa estiver comple- 
to, ele prosseguirá imprimindo a pági- 
na destinada à exibição das instruções. 
Mas, por enquanto, a instrução ret pro- 
voca o retorno ao BASIC. 


O PROGRAMA BASIC 





As linhas seguintes geram a tabela 
ASCII necessária ao funcionamento do 
programa em código. 


q CLS:CLEAR 100,-14000 


LO AS-"AVALANCHECriação: A. Doe 
Programa: BR. Neder” 

20 FOR T-Q0 TO 41 

O POKE -14000+7,ASC(MTDS (AS, T+ 
L,1):) 

40 NEXT 

50 DEFUSAlL=-12288B 

60 X=USRI (0) 

70 CLS 

80 END 


A linha 5 limpa a tela e protege o to- 
po da memória que conterá a tabela. 

A linha 10 coloca o texto utilizado na 
página inicial dentro da variável AS. E, 
sem dúvida, bem melhor digitar uma ta- 
bela na forma de um texto do que digi- 
tar os números de todos os códigos AS- 
CII correspondentes. 
































Em seguida, um laço FOR...NEXT 
coloca os códigos ASCII na memória, 
criando a tabela ASCII. 

O próprio programa testa, então, a 
rotina em código — se ela estiver gra- 
vada na memória. 

O jogo não vai precisar desse progra- 
ma BASIC depois que a tabela tiver si- 
do gravada. Guarde-o, porém, para aju- 
dar na montagem. 


RS 

A primeira coisa que se programa em 
qualquer jogo é uma tela exibindo o tí- 
tulo. Embora a rotina de impressão es- 
teja em código, será mais fácil colocar 
os códigos ASCII das letras na memó- 
ria usando um programa BASIC: 


1 CLEAR 200,16999 

LO AD=17000 

30 READ AS 

40 FOR A=-1 TO LEN(AS) : B=ASC(MID 
S(AS,A,1)) 

50 IF B<kH61 THEN POKE AD,B ELS 
E POKE AD,B-96 

60 AD=AD+1 


mi 


É e | 
ns e 
al 


o 1 Hs 


70 NEXT A 

BO DATA "avalanchecriacao: a.do 
e programa: s. kellaway e q. he 
dley” 


Quando ele é executado, a tabela ne- 
cessária ao jogo é criada na memória do 
microcomputador. Para gravar a tabe- 
la, utilize CSAVEM “DADOS”, THAN, 
17059, 19000. 

Se quiser usar o Assembler de IN- 
PUT, precisará ampliar a memória dis- 
ponível; se não o fizer, o espaço será in- 
suficiente para o Assembler e o progra- 
ma em código. Digite, então: 


POKE 25,6 
POKE 26,1 
NEW 
Depois, digite CLEAR 200,18999 pa- 


ra proteger o topo da memória e, em se- 
guida, o programa: 


10 ORG 19000 

20 JSR CLS 

30 LDX 41066 

40 LDY 417000 


50 LDB 49 


MNE E E ARA OS mos 


60 JSR LPRINT 
70 LDX 41384 
80 LDB 415 


90 JSR LPRINT 

100 LDX 41445 

110 LDB 4621 

120 JSR LPRINT 

130 LDX 61481 

140 LDB 412 

150 JSR LPRINT 

160 LDA 45 

170 PAUSE LDX (465535 
180  PAUSEI LEAX -1,X 
190 BNE PAUSEI 

200  DECA 

210 BNE PAUSE 

220 JSR CLS 

230 RTS 

240 LPRINT EQU 19174 


250 CLS EQU 19148 

Os mnemônicos podem ser gravados 
por meio da opção correspondente do 
Assembler. Monte o programa e grave- 
o em código — se não souber fazer is- 
to, utilize o monitor Assembler. 

Além desse programa e da tabela, as 
outras rotinas aqui apresentadas serão 
necessárias para que você veja o resul- 
tado por meio de EXEC 19000, 


O PROGRAMA BASIC. 





O programa em BASIC começa re- 
servando uma boa quantidade de me- 
mória para armazenar O programa em 
código. Em seguida, as letras utilizadas 
na primeira tela são colocadas na me- 
mória, representadas por seus códigos 
ASCII. Em geral, é preciso subtrair 96 
de cada código para que eles correspon- 
dam aos códigos de letras invertidas. Al- 
gumas letras, porém — códigos meno- 
res que 61, em hexadecimal —, não pre- 
cisam dessa operação. 


LIMPEZA DA TELA | 


A rotina em código começa em 
19000, depois da tabela ASCII, e salta 
para a sub-rotina CLS, que começa em 
19148. Na primeira rotina, o endereço 
desse rótulo é definido por uma Instru- 
ção EQU, para que os desvios sejam cal- 
culados. Eis a sub-rotina: 


10 ORG 19148 

20 CLS LDX 41024 
30 LDA 4128 

40 QCLSI STA ,X+ 
50 CMPX 41536 

60 BLO CLSI 

0 RTS 


O endereço inicial da tela — 1024 — 
é colocado no registro X e o código do 
espaço em branco — 128 —, em A. 
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STA,X + coloca esse código na posição 
apontada por X; o conteúdo de X au- 
menta em uma unidade. A rotina é re- 
petida várias vezes até que X seja maior 
que 1536, endereço final da tela. 

Como o conteúdo de X aumenta an- 
tes da colocação de 128 em um endere- 
ço da tela, um comando BLO — desvio 
se for “menor que” — é usado para sair 
do laço CLSI. Essa rotina deve ser gra- 
vada separadamente, 





IMPRESSÃO NA TELA 


Quando o microprocessador retorna 
da sub-rotina CLS, a rotina principal 
prepara os registros para que se faça a 
impressão na tela. 

O registro X contém a posição que 
desejamos para o primeiro caractere da 
linha a ser impressa. O “A” de Avalan- 
che será impresso, então, em 1066. 

O registro Y contém a posição de me- 
mória da tabela ASCII da primeira le- 
tra a ser impressa. Assim, 17000 é colo- 
cado em Y. O registro B contém o nuú- 
mero de caracteres a ser impresso. Co- 
mo vamos começar escrevendo “AVA- 
LANCHE”, 9 é colocado em B. Em se- 
guida, ocorre um salto para a sub-rotina 
LPRINT. Mais uma vez uma instrução 
EQU define o endereço 19174 para efei- 
to de cálculos de desvios. 





“A ROTINA LPRINT 


Esta rotina começa em 19174. Sua 
função consiste em obter os dados da ta- 
bela ASCII, colocando os códigos na te- 
la, um de cada vez. 


10 ORG 19174 
20 LPRINT LDA ,Y+ 
50 STA ,X+ 


40 DECB 
50 BNE LPRINT 
60 ARTS 


Os códigos da tabela apontados por 
Y são colocados em A e o apontador 
volta-se para a próxima posição. O co- 
mando STA,X + coloca-os, então, na 
posição de tela apontada por X, e X au- 
menta em uma unidade, apontando pa- 
ta a posição seguinte. 

A instrução DECB subtrai uma uni- 
dade do conteúdo de B e a rotina é re- 
petida até que B chegue a zero. Quan- 
do isso ocorre, o microprocessador re- 
torna à rotina principal. Guarde esta ro- 
tina separadamente. 

A rotina prossegue até completar a 
página de rosto de nosso videogame, im- 
primindo linha por linha. 

Para escrever uma nova linha, a po- 


sição de impressão é colocada em X e 
o comprimento do texto, em B. 

Não há necessidade de colocarmos 
um novo valor em Y, já que esse apon- 
tador simplesmente percorre a tabela 
ASCII B caracteres de cada vez. 


“A ROTINA DE PAUSA 





Quando a última linha da página ini- 
cial tiver sido impressa, o microproces- 
sador fará uma pausa no programa, pa- 
ra que possamos lê-la, antes de ser subs- 
tituida pela tela de instruções. 

O número 5 é colocado no acumula- 
dor e o registro X recebe o valor 65535. 
LEAX -1,X subtrai uma unidade de X 
e BNE PAUSEI retorna, de modo que 
vai diminujndo até ser reduzido a zero; 
A também é diminuído. O processo se 


repete até quê A também seja igual a ze- 
ro e o comando BNE permita que o pro- 
cessador deixe o laço. 


DOIS LAÇOS 





O laço externo PAUSE — baseado 
no acumulador — repete-se, assim, cin- 
co vezes; a cada repetição, o laço inter- 
no PAUSEI é executado 65535 vezes. O 
uso de dois laços tem a vantagem de 
possibilitar o acerto do tempo. O laço 
externo nos dá um ajuste grosseiro e O 
laço interno, um ajuste mais fino. 

Por fim, a rotina CLS limpa a tela 
novamente. Em seguida, o computador 
passa à página de instruções, que apre- 
sentaremos no próximo artigo desta sé- 
rie. Por hora, uma instrução RTS retor- 
na ao BASIC. 














OJOGO 





DO OTELO (1) 





Otelo é um jogo de estratégia que se 
desenvolve num tabuleiro de oito por oi- 
to posições — como os tabuleiros de xa- 
drez ou dama. As regras são bem fáceis 
e o jogo também. 

O objetivo é tomar o maior número 
possível de peças do oponente. A joga- 
da consiste basicamente na colocação 
das peças no tabuleiro, uma a uma, por 
um jogador de cada vez, até preenchê- 
lo totalmente. Cada jogador começa 
com duas peças e tenta tomar as do opo- 
nente, “cerçando-as”. Para consegui-lo, 
deve colocar as peças de maneira que as 
do oponente fiquem entre as suas — ou 
seja, que se forme uma trilha de peças 
adversárias com peças suas nas duas ex- 
tremidades. Ao tomar uma trilha adver- 
sária, esteja ela na horizontal, vertical 
ou diagonal, todas as peças do oponen- 
te serão substituídas por peças do joga- 
dor em questão. 

O placar de cada jogador correspon- 
de ao número de peças que ele tem no 
tabuleiro naquele momento. Será ven- 
cedor aquele que tiver o maior número 
de peças no tabuleiro quando ele estiver 
totalmente cheio. 

Nesta versão para computador, esta- 
remos jogando contra a máquina que, 
além de mostrar o tabuleiro, também 
atualiza o placar. 





DICAS PARA VENCER 


Para quem nunca jogou Otelo, as di- 
cas que se seguem serão muito úteis. 

As posições dos cantos são extrema- 
mente importantes, já que, uma vez con- 
quistadas, jamais serão roubadas. Em 
consequência, a ocupação de tais posi- 
ções é fundamental para garantir a vi- 
tória — mesmo que implique o sacrifí- 
cio de algumas de nossas peças ou im- 
peça um'outro movimento que pudesse 
nos render mais peças do oponente. 

Se considerarmos que uma peça po- 
de completar mais de uma linha — na 
vertical, na horizontal e na diagonal —, 
concluiremos que o movimento aparen- 
temente mais óbvio nem sempre é o me- 
lhor, pois, nos estágios mais avançados 
do jogo, será possível tomar duas ou três 
linhas de peças do oponente com a sim- 
ples adição de uma peça. 





Cr fl 


Pense sempre adiante. Podemos in- 
duzir o adversário a criar situações que 
nos ajudem a tomar posições vitais, sim- 
plesmente simulando ou fingindo que fi- 
zemos uma má jogada. 


| O PROGRAMA 


Uma das grandes vantagens da ver- 
são de Otelo para computador sobre o 
verdadeiro tabuleiro é que nela o com- 
putador fica com todo o “trabalho pe- 
sado””. Além de desempenhar o papel de 
adversário, ele substitui as peças con- 
quistadas e cuida do placar, deixando- 
nos livres para pensar só nas jogadas. 

O computador demora um pouco pa- 
ra fazer suas jogadas, pois leva em con- 
ta todos os movimentos possíveis. No 
decorrer do jogo, à medida que o nú- 
mero de posições vazias diminui, passa 
a tomar decisões com maior rapidez. 


| JOGANDO " 


Ao rodar o programa, o computador 
perguntará se você deseja fazer a primei- 
ra jogada ou não. Para executar uma jo- 
gada, é necessário fornecer-lhe duas 
coordenadas. Estas especificam a posi- 
ção da peça no tabuleiro e estão com- 
preendidas entre os valores 1 e 8. For- 
necemos primeiramente a coordenada 
da linha — ou seja, do eixo Y, com ori- 
gem no topo da tela — e, depois, a coor- 
denada da coluna — eixo X, com ori- 
gem no lado esquerdo do tabuleiro. Se 
fornecermos O (zero) para as coordena- 
das, O jogo será encerrado; se fornecer- 
mos 9, transferiremos o direito de jogar 
para o computador. 








PRIMEIRAS LINHAS 


Digite agora a primeira parte do jo- 
go do Otelo, Se você rodar o programa 
como está, verá o tabuleiro na tela, mas 
ainda não poderá jogar. 

Salve as linhas digitadas em disco ou 
em fita cassete para mais tarde incorpo- 
rá-las à segunda parte do programa, que 
será apresentada num próximo artigo, 
completando o jogo. 


E 
E | 


Embora suas regras sejam bastante 
simples, o jogo do Otelo requer muita 
estratégia. Programá-lo é fácil: 

monte o tabuleiro, crie as peças 

e desafie sua máquina! 


10 BOADER O: PAPER 7: INK 1: 
CIL.S 

15 PRINT AT 1,11; INVERSE 15” 
OTHELLO” 


20 PRINT AT 10,2;"VOCÊE QUER C 
QMECAR ? (8 OU N)": INPUT X5 
: IF X$=º" THEN GOTO 20 

30 LET KS$=X8(1): IF XK9S>2"8” 
AND XS<>"N" AND XS<>2"s” AND X 
8<>"n” THEN Goto 20 
40 LET CP=1: TF XS="Nº 
“nº THEN LET CP=2 
100 DIM B(B,8): DIM C(8B): DIM 
D(8,2): DIM X(60): DIM Y(60): 
DIM N(60) 

110 LET B(4,4)=1: LET B(4,5)=2 
' LET B(5,4)=2: LET B(5,5)=1 


OR XS= 


120 FOR F=1 TO B: READ A: LET 

D(F,1)=A: READ A: LET D(F,2)-A 
" NEXT F 

LI0 DATA =1,cks0:chodsch:sLaD; 
Dadas Ls Ls 

140 FOR F=0 TO 7: READ A,B.,C: 

POKE USR "A"+F,A: POKE USB "B” 
+E, E: POKE USAR "C'+HF,C: NEXT F 


150 DATA 204,0,0,51,60,60,204, 
126,66,51,126,66,204,126,66,51 
,126,66,204,60,60,51,0,0 


Lab) Lo] 


10 HOME VTAB (3): HTAB (15) 

15  INVERSE PRINT TT OTELO 
": NORMAL 

20 VTAB (10): PRINT "QUER JOGA 

R PRIMEIRO (S/N) ";: INPUT KS: 

IF XS$ = *"”" THEN 20 

30 X9 = LEFTS (XS,1L):CP = 1: 5 


F XS = "Nº THEN CP = 2 

40 IF XS< >"8º ANDXSSO > 
“Nº THEN GOTO 20 

100 DIM B(8,8),C(B).D(8B,2),X(6 
0), 7(60),N(60) 

10 B(4,4) = 1:B(4,5) = 
) = 2:B(5,5) = d 

120 FOR F = 1 TOS: READ A:DKF 
1) = À: READ A:D(F,2) = A: NEX 
A 

130 DATA -l,cl, 
ted tobetriça 


5 COLOR 1,15,15:SCREENZ 


10 FOR X=1 TO 16:READ A:NEXTX:G 
OSUB 9200:RESTORE 


2:B(5,4 


D,ml+k,=1,7= 1,4 














15 DRAW" BM60,40;525;Cl":AS=" 
LO” :GOSUB 9300 

20 DRAW"BM26,120;510;€C2":AS="QU 
ER JOGAR PRIMEIRO” :GOSUB 9300:D 
RAW"BM90,140":AS="S OU N”:GOSUB 
9300 

2] KS=INKEYS: IFXS=" "THEN dl 

25 COLOR15,4,4 

J0 IFXKS<>"S ANDXSS>"s ANDXSS> N 
"ANDX5S<>"nºTHEN 21 

40 CP=1:1IFXS="NºORXS="n"ºTHEN CP 
= 2 

100 DIM B(B,8),C(8B),D(8,2),X(60 
|), Y(60),N(60) 

110 B(4,4)=1:B(4,5)=2:B(5,4)=2: 
B(5,3)=1 

120 FOR F=-1 TO B:READ A:D(F,1)= 
A:READ A:D(F,2)=A:NEXTE 

130 DATA -1l,-1,0,-1L,1,-1L,-1,0D,d 
0, 1),1,0,1L,1,1 

150 GOSUB 1100 


10 PMODE 1,1:COLOR 4,1:PCLS:SCR 
EEN 1,0:FOR X=1 TO 16:READ A:NE 
XTX:GOSUB 9200:RESTORE 

15 DRAW"BM60,40;516":AS="OTHELL 
O” :GOSUB 9300 

20 DRAW"BM26,120;58;C2":AS=" Q 
UER JOGAR PRIMEIRO” :GOSUB 9300: 
DRAW”"BM100,140":AS="S OU N”:GOS 
UB 9300 

21 KS=INKEYS:IF XS$="" THEN 21 
30 IF XS<>"S” AND X3<>"N” THEN 
21 

40 CP=1:1IF XS="N”º THEN CP=2 

100 DIM B(8,8),C(8),D(8,2),X(60 
).Y(60),N(60) 

110 B(4,4)=1:B(4,5)=2:B(5,4)=2: 
B(5,5)=1 

120 FOR F=1 TO B:READ A:D(F,1)= 
A:READ A:D(F,2)=A:NEXT F 

130 DATA -1l,-L, 
0.) ,1,0,),1,1 
150 GOSUB 1100 


As linhas 10 a 40 geram a primeira 


tela que o jogador vê, ou seja, o título | 


do jogo e a pergunta que o inicia, A li- 
nha 10 (linha 5, no MSX) se encarrega 
do ajustamento das cores e da limpeza 


da tela. O nome do jogo é gerado na li-g 


nha 15. Como nos programas para os 


micros TRS-Color e MSX usou-se a te-* 


la de alta resolução, existe uma rotina 
que desenha letras no final do progra- 
ma (a qual já utilizamos anteriormente 
em INPUT). 

A linha 20 apresenta a primeira per- 


Q=Lsdimdh,edsDrd 


28 PROGRAMAÇÃO DEJOGOS 28 








DICAS PARA VENCER 

A PRIMEIRA TELA 
SELEÇÃO DOS GRÁFICOS 
PARA O TABULEIRO 


gunta, destinada a definir quem jogará 
primeiro. A resposta, armazenada em 
X$, é depois reduzida à sua primeira le- 
tra, na linha 30. CP corresponde ao jo- 
gador em questão e recebe o valor 1 
quando quem joga é você e 2 quando é 
o computador, A linha 40 faz a verifi- 
cação por S e N, 

As linhas 100 a 130 inicializam as va- 
riáveis e matrizes usadas no jogo. A li- 
nha 100 cuida das matrizes. B(x,y) re- 
presenta o tabuleiro; os valores arma- 
zenados em cada elemento representam 
o status do quadrado correspondente no 
tabuleiro. Se o valor for 0, o quadrado 
está vazio; se for 1, uma peça pertencen- 
te ao jogador ocupa aquela posição; e 
se for 2, a posição está ocupada por uma 
peça do computador. C(x) é usado pa- 
ra verificar as jogadas do jogador. 


AS REGRAS DO JOGO 





o e EASIPRLAS 
= * INICIALIZAÇÃO DO JOGO 
E DIGITANDO A ROTINA 

sl PRINCIPAL 
a A VEZ DO JOGADOR 


D(x,y) contém os deslocamentos X e Y 
nas oito direções possíveis da jogada. 
X (0), Y(x) e N(x) são usadas nos cálcu- 
los para a jogada do computador. 

A linha 110 especifica as posições inl- 
ciais no tabuleiro. Cada jogador tem 
duas peças posicionadas em seu centro, 
no começo da disputa. As direções pos- 
síveis, partindo dessa posição, são defi- 
nidas pela linha DATA 130. Cada va- 
lor representa um deslocamento X ou Y, 
com os números negativos indicando es- 
querda ou topo do tabuleiro, respecti- 
vamente. 

Na versão para os microcomputado- 
res Spectrum, as linhas 140 e 150 geram 
UDG para o quadrado vazio e para as 
peças. A linha 140 procede à leitura dos 
dados apresentados pela linha 150 e cria 


os UDG A, BeCl. 


15? 











O LAÇO PRINCIPAL 


500 GOSUB 1000 
505 IF C5S+PS=64 
4000 

510 LET EG=0; TF CP=] 

GOSUB 2000: GOSUB 1000: 
1 THEN GOTO 4000 

515 IF CS+PS=64 THEN GOTO 
4000 

520 IF CP=2 THEN GOSUB 3000 
530 GOTO 500 


CU 


THEN GOTO 


THEN 
IF EG= 


500 OSUB 1000 

505 IF CS + PS = 64 THEN 4000 
510 EG = 0: IF CP = 1 THEN GOS 
UB 2000: GOSUB 1000: IF EG = | 
THEN 4000 

515 IF €S + PS = 64 THEN 4000 
520 IF CP = 2 THEN GOSUB 3000 
530 GOTO 500 


nd 


500 GOSUB 1000 

505 TF CS+PS=64 THEN 4000 

510 EG=0:IF CP=1 THEN GOSUB 200 
O: GOSUB 1000:LINE(112,150)-(144 
180) ,1,BF:IF EG=1 THEN 4000 
515 IF CS+PS=64 THEN 4000 

520 IF CP=2 THEN GOSUB 3000 

530 GOTO 500 


500 GOSUB 1000 

505 IF CS+PS=64 THEN 4000 

510 EG=0:IF CP=1 THEN GOSUB 200 
O:GOSUB 1000:COLOR 1:LINE(118,1 


50)-(150,180), PSET,BF.IF EG=1 T 


HEN 4000 

515 IF CS+PS=64 THEN 4000 
520 IF CP=2 THEN GOSUB 3000 
530 GOTO 500 


O laço principal do programa está en- 
tre as linhas 500 e 530. A linha 500 cha- 
ma a sub-rotina que desenha o tabulei- 
ro. As linhas 505 e 515 verificam se o 
tabuleiro está cheio, ou seja, se a soma 
dos pontos do jogador, PS, com os do 
computador, €S, resulta em 64 uia 
ro de. posições do tabuleiro). 

A linha 510 ajusta o indicador de fi 
nal de jogo (EG) para 0 e chama a roti- 
na responsável pela vez do jogador, se- 
guida pela sub-rotina do tabuleiro. Se 
depois da execução dessas sub-rotinas o 
indicador EG for setado (valor 1), o pro- 
grama saltará para a sub-rotina de final 
de jogo, que começa na linha 4000. A 
Jogada do computador é feita pela linha 


520, caso CP seja igual a 2 (sub-rotina 
3000). 


DESENHANDO O TABULEIRO 





1000 CLS : PRINT TAB 11;"123456 
78": LET PS=0: LET CS=0 

1010 FOR F=1 TO B: PRINT TAB 9; 
F:” ":: FOR G=1 TO 8 
1020 TF B(F,G)=0 THEN 
RS 144; 

1930 TF B(F,G)=1 THEN PRINT JT 
NK 2;CHRS 145;: LET PS=PS+1 
1040 IF B(F,G)=2 THEN PRINT 1 
NK 2:CHBS 146;: LET CS=CS+1 
1050 NEXT G: PRINT : NEXT F 
1052 LET PS="PONTOS": IF PS=1 T 
HEN LET P$S="PONTO” 
1054 LET Q5=" PONTOS": 
HEN LET 05$="PONTO” 
1060 PRINT '" INK 2;" VOCE =";T 
AB 20:"COMPUTADOR=": PRINT " "; 
PS;”" ".PS:;TAB 20;€8:" ";05 

LOZ0 RETURN 


Dol 


1000 HOME 
2345678": PS 
1010 FOR F 1 TO B: PRINT TA 
B( 16):;F;" ";: FOR G = 1 TOS 
1015 IF B(F,G) < > 1 AND B(F, 
G) €< > 2 THEN B(F,6) = 0 
1020 IF B(F,6) = O THEN 
1030 IF B(F,G) 
CHAS (48) ;:PS 
1040 IF B(F,6) 
SE : PRINT * gs 
5 + 1 
1050 NEXT 
1052 PLS =” 
THEN P15S =" 
1054 P258 =” 
"THEN P25 = " PONTO” 
1060 PRINT : PRINT "JOGADOR = 
0": TAB( 25) ;:"COMPUTADOR = "5: 
INVERBSE PRINT ” ": NORMAL : P 
QINT PS:;P1S; TAB( 25);€CS;P25 
1070  RETUABN 


o 


1000 PS=0:C5=0 

1010 FOR F=1T08:FOR G=1TOB 

1030 IF B(F,G)=1 THEN LINE((G-1] 
)*16+64, (F-1)*16+12)-(G*16+64,F 
*16+12),15,BF:PS=PS+1 

1040 TF B(F,G)=2 THEN LINE((G-1 
)*16+64, (F-1)*16+12) -(G*16+64,F 
*16+12),1,BE:CS=CS+1 

1050 NEXTG,F 

1060 DRAW"BM10,90;C1":AS= 
:GOSUB9300:DRAW"BM200,90": 
OMPUT”" : GOSUB9300 

1063 LINE(20,110)-(28,118),15,B 


PRINT CH 


LE Cai T 


PRINT 
D:cs 


TAB( 18);"1 
O: PRINT 


n 


PRINT 

1 THEN PRINT 
ES + 1 
2 THEN 

NORMAL, 


INVER 
«CS = € 


NEXT F 
TE PS = 1 


G: PRINT 
PONTOS”: 
PONTO” 


PONTOS”: IF €S = 1 


"VOCE" 
AS="€ 


F:LINE(220,110)-(228,118),1,BF 
1065 LINE(5,60)-(42,80),1,BF:LI 
NE (205,60)-(242,80),1,BF 
1066 DRAW"BM12Z,62;816;C15":AS=M 
ID$S (STRS(PS),2) :GOSUB9300:DRAW" 
BM212,62":AS=MIDS (STR$S(CS),2):6 
OSUB9300: DRAW" SS” 

1070 RETURN 

1100 CLS: FORX=0TO7:DRAW"BM"+STR 
S(X*16+70)+",0;58"+NUS (X+1) :NEX 
TX 

1110 LINE(64,12)-(192,140),2,BF 
1120 FORX=0TOB:LINE (X*16+64,12) 
- (4*16+64, 140), 1:NEXT 

1130 FORY=0TOB:LINE (64,Y7*16+12) 
-(192,Y*16+12), 1:NEXT 

1140 FORY=0TO7:DRAW"CISSBBM54,” 
+STRS (7*16+14) +NUS (T+1) :NEXT 
1150 RETURN 


1000 PS=0:C5=0 

1010 FOR F=1 TO 8:FOR G=1 TO B 

1030 IF B(F,G)=1 THEN PAINT (G*1 

6+54,F*16),1,3:PS=PS+1 

1040 IF B(F,G)=2 THEN PAINT(G*L 

6+54,F*16),4,3:CS=CS+1 

1050 NEXT G,F 

1060 DRAW"BMO, 150;C2" :AS=" VOCÊ 
":GOSUB 9300:DRAW"BM18B6,150”: 

AS="COMPUT” : GOSUB '9300 

1063 LINE (62,150)-(70,158),PSET 

| B: LINE (246,150)-(256,158),PSET 

: B 

1064 PAINT(248,152),4,2 

1065 COLOR 1:LINE(0,60)-(32,80) 

| PSET,BF:LINE(216,60)-(248,80), 

PSET,BF 

1066 DRAW"BMO,60;S16;C4”:AS=MID 

S (STRS(PS),2) :GOSUB 9300:DRAW"B 

M216,60":AS=MIDS (STRS(C5),2):GO 

SUB 9300:DRAW"SB” 

1070 RETURN 

1100 PCLS1:COLOR2:FORX=0 TO 7:D 

RAW" BM”+STRS3 (X*16+70)+",0;S8"+N 

US (X+1) :NEXT X 

1110 LINE(64,12)-(192,140),PSET 

| BF:COLOR 3 

1120 FOR X=0 TO B:LINE(X*16+64, 

12)- (X*16+64, 140), PSET:NEXT 

1130 FOR Y=0 TO 8B:LINE(64,Y*16+ 

12)-(192,Y*16+12), PSET:NEXT 

1140 FOR Y=0 TO 7:DRAW"C258BBM54 

|" +STAS (Y*16+14) +NUS (Y+1) :NEXT 

1150 RETURN 


A sub-rotina que tem início na linha 
1000 desenha o tabuleiro. Primeiro, lim- 
pa a tela, imprime (ou desenha, no ca- 
so dos microcomputadores das linhas 
MSX e TRS-Color) os números das co- 
lunas e zera os dois placares. 

O laço FOR...NEXT que fica entre 
as linhas 1010 e 1050 do programa de- 
senha o tabuleiro na tela, linha por li- 
nha. À medida que as peças são mos- 
tradas, incrementa-se o placar. 

As linhas 1052 e 1054 melhoram a 
“gramática” do placar, definindo se a 
palavra PONTO será usada no singular 











ou no plural. A linha 1060, por sua vez, 
mostra o placar para o jogador. 

No micro TRS-Color e no MSX, as 
linhas 1100 a 1150 constituem coman- 
dos extras de alta resolução para o de- 
senho do tabuleiro. 


A VEZ DO JOGADOR 





2000 PRINT AT 14,0;"FACA O MOVI 


MENTO (LINHA, COLUNA)”: INPUT X, 
! 

2005 IF X=0 THEN LET EG=1: RET 
URN 

2006 IF X=9 THEN LET CP=2: RET 
URN 

2010 IF X<l OR X>8 OR Y<l1 OR T> 
8 THEN GOTO 2000 

2020 IF B(X,7)=0 THEN GOTO 20/ 
Q 


2040 PRINT AT 17,0;” VOCE NÃO P 


ODE IR PARA UMA CASA OCUPADA!” 
FOR F=1 TO 500: NEXT EF 
2050 PRINT AT 1/7,0;” 


| GOTO 2000 

2070 LET NF=0: FOR F=1 TO B: LE 
T CF=0: IF X+D(F,1)=0 OR K+D(F, 
|)=9 THEN GOTO 2075 
2071 IF Y+D(F,2)=0 OR 
9 THEN GOTO 2075 
2072 IF B(X+D(F,1),Y+D(F,2))=2 
THEN LET CF=1: LET NF=1 
2075 LET C(F)=0: IF CF=] 
LET C(F)=F 

2080 NEXT F 

2090 STOP 


T+D(F,2)= 


THEN 


2000 VTAB 

SUA JOGADA 
XY 

2005 
URN 

2006 IF 
URN 

2010 IF 
<l 


(15): INPUT "QUAL à 
(LINHA, COLUNA) *? T; 
IF X = 


O THEN EG = 1: BET 


X = 9 THEN CP = 2: RET 
(X << 1 OR X > 8) OR (Y 
OR Y > 8) THEN 2000 
2020 TF B(X,Y) = O THEN 2070 
2040 VTAB (17): PRINT "ESTE LU 
GAR JA' ESTA' OCUPADO": FOR F = 
O TO 1500: NEXT 
2050 VTAB (17): PRINT * 

*. GOTO 20 
OU 
2070 N 


F = 0: FORF 
= 0: IF X+ 
I 


D(F,1) 
THEN 2075 
E T+ D(IE,Z) = 
= O THEN 20/75 
20/72 TF BIX + D(F,1),T + D(F,Z 
J) = 2 THEN CF = J:NF = d 
2075 C(E) = O: IF CE = 1 THEN C 
(E) = E 
2080 NEXT F 
2090 STOP 


x 
(F,1) b 
2071 
D(F,2) 


9 OR T+ 


2000 LINE(0,1B2)-(255,191),1,BF 


'LINE(112,150)-(144,180),1,BF:D 
RAW"C15;BM10,182":AS="SUA JOGAD 
A LINHA E COLUNA” : GOSUB9300 
2001 IS=INKEYS:IFIS<"O” OR 152” 
9" THEN2001 

2002 X=VAL (15) :DRAWBM114,154;5 
16;C15"+NUS (X) 

2003 IS=INKEYS:IFIS<"O" OR 15>" 
9"THEN2003 

2004 Y=VAL (15) : DRAWNUS (7)+"5S8” 
2005 TEX=0 THEN EG=1:RETURN 
2006 IFX=9 THEN CP=2:RETURN 
2010 TIFX<1l OR X>B OR Yc<l OR Y>8 
THEN 2000 

2020 IF B(X,Y)=0 THEN 2070 

2040 LINE(0,182)-(255,191),1,BF 
: DRAW" SBCISBM50, 182" :A$=" QUADRA 
DO OCUPADO” : GOSUB9300:FORF=1]ITO9 
00: NEXTF 

2050 GOTO 2000 

2070 NF=0:FORF=1TOB:CF=0:TFX+D( 
F,1)=0 OR X+D(F,1)=9 THEN 2075 
2071 IFYADIF,2)=0 OR T+DIF,4)=9 
THEN 2075 

2072 IF B(X+D(F,1),Y+D(F,2))=2 

THEN CF=]:NF=] 

2075 C(F)=O:IFCE=1 THEN C(F)=F 
2080 NEXTF 


2000 COLOR 1:LINE(0,182)-(255,]1 
91),PSET,BF:LINE(118,150)-(150, 
180), PSET,BF:DRAW"C3;BMO,1B2":A 
S=" PARA ONDE LINHA E COLUNA” 
:GOSUB 9300: SOUND 100,1 
2001 IS=INKEYS:IF IS<”0* 
"9º THEN 2001 

2002 X=VAL (15) :DRAW"BM11B,150;S 
16; C4"+NUS (X) 

2003 IS=INKEYS:IF I5<"0" 
"9" THEN 2003 

2U04 Y=VAL (IS) :DRAW NUS(Y)+"S8” 
2005 IF X=0 THEN EG=1: RETURN 
2006 IF X=9 THEN CP=2:RETURN 
2010 IF X<l OR X>8 OR Y<l OR Y> 
8 THEN 2000 

2020 IF B(X,7)=0 THEN 2070 

2940 COLOR 1:LINE (0,182)-(255, 
191), PSET,BF: DRAW"SBC4BMO, 1B2”: 
AS="VOCÊE NÃO PODE IR PARA AI”:G 
OSUB 9300:FOR F=1 TO 900:NEXT F 
050 GOTO 2000 

2070 NF=0:FOR F=] TO B:CF=0:IF 
X+D(F,1)=0 OR K+D(F,1)=9 THEN 2 
075 


OR I3> 


OR IS> 
















































2071 IF Y+D(F,2)=0 OR Y+D(F,2)= 
9 THEN 2075 

2072 IF B(X+D(F,1),Y+D(F,2))=2 
THEN CF=1:NF=1 

2075 C(F)=0:IF CF=1 THEN C(F)=F 
2080 NEXT F 


Sua jogada está entre as linhas 2000 
e 2270, mas, por enquanto, o programa 
vai somente até a linha 2090 (2080, no 
MSX e no TRS-Color). 

O programa obtém as coordenadas X 
e Y do jogador na linha 2000. A linha 
2005 verifica se X é zero; se for, o indi- 
cador de fim de jogo é setado. 

A linha 2010 verifica se houve um 
eventual erro de entrada das coordena- 
das do jogador; se houve, volta para a 
linha 2000. O programa checa, então, 
o quadrado escolhido, para se certificar 
de que está vazio, e salta para a linha 
2070. Caso o quadrado já esteja ocupa- 
do por outra peça, a linha 2040 impri- 
me uma mensagem de erro. 

As linhas finais desta parte do pro- 
grama (2070 a 2075) verificam se a peça 
em questão está ou não próxima de uma 
das peças do computador. 
















ROTINA PARA DESENHAR LETRAS 


Para que possamos escrever na tela 
de alta resolução do MSX e do TRS- 
Color, precisaremos acrescentar esta ro- 
tina. Ela é bem semelhante à que foi des- 
crita no artigo da página 232, 


9100 DATA BR4, ND4R3D2NLIND2BE2, 
ND4R3DGNL2FDNL53BU4BR2, NRID4RIBU 
4BR2, ND4R2FD2GL2BE4BR, NRID2NR2D 
2RI3IBU4BR2 

9110 DATA NRI3ID2NR2D2BE4BA,NR3D4 
RIUZLBE2ZBR, DABR3U2ZNL JUZBA2,ND4B 
R2, BDAREU3L2R3IBRZ2, D2ND2NFZE2BAZ 
9120 DATA DáR3IBU4BA2, ND4FREND4B 
R2,ND4FIDU4BR2, NRID4ARIV4BRZ, ND4 
R3ID2NL3BE2Z, NR3DARINHU4ABRZ 

9130 DATA ND4R3DZL2F2BU4BRZ, BD4 
RIUZLIUZRIBRZ, AND4ARBRZ, DARZU4 BR 
2,D3IFEUIBR2, DAEFU4BRZ2 

9140 DATA DF2DBLZUEZUBAZ, DENDZE 
UBR2, RIGIDRIBU4BRZ2 

9150 DATA NRZ2D4R2U4BRZ, 
2,R2D2L2D2R2BU4BR2, NR2BD2NR2BD2 





Ene 


AO 
























OLE NA 
dh 


SS | E 


CEU am 


17 


as 


EE 


9/0583 


ue 


BDEND4BR 


R2U4BR2, D2R2D2U4BR2,NR2D2R2D2L2 
BE4, DAR2U2ZL2BE2BR2, RAZND4BR2,NA2 
DAR ZUZNL2U2ZBR2,NR2D2BR2D2U4 BA? 
9200 DIM LES(26) 

9210 FOR K=0) TO 26:READ LES(K): 
NEXT 
9220 
EXT 
9230 
9300 


FOR K=0 TO 9:READ NUS(K):N 


RETURN 

FOR K=1 TO LEN(AS) 

9310 BS=MIDS(AS,K,1) 

9320 IF B$>="0" AND BS<="9" THE 
N DRAW NUS (VAL (BS) ) :GOTO 9350 
9330 IF B3=" * THEN N=0 ELSE N= 
ASC(B3)-64 

9340 DRAW LES(N) 

9350 NEXT 

9360 RETURN 


DM 


9100 DATA BR4,ND4R3D2NL 3INDZBEZ, 
ND4RI3DGNLZFDNLIBU4ABRZ2, NARID4RIALU 
4BR2, ND4R2FDZGIL2BE4BR, NR 3D2NR2D 
2RiBU4BA2Z 

9110 DATA NR3D2NR2D2BE4BR,NR3D4 
RI3UZLBEZBA, DABRIUZNLIUZBRZ,ND4B 
R2, BD4REUILZRIBRZ, D2ZNDZNFZEZBR4 
9120 DATA D4R3BU4BRZ, ND4FREND4B 
R2,ND4F3IDU4BRZ,NRID4RIU4BRZ,ND4 
RID2NL3IBE2, NRID4RINHU4A BRAZ 

9130 DATA ND4R3D2LZ2ZF2Z2BU4BRZ, BD4 
RIUZLIUZRIBRZ2, AND4RBRZ, DAR ZU4BR 
2, D3IFEUIBA2, DÁEFU4BRZ 

9140 DATA DF2DBL2UEZUBRZ, DFNDZE 
UBRZ, R3GIDRIBUJ4BRZ 

9150 DATA NR2D4áR2U4BRZ2, BDEND4BR 
2, R2D2L2D2R2BU4BR2, NREZBD2NRZ2BD: 
R2U4BR2,D2R2D2U4BR2, NR2DZR2DZL£ 
BE4, D4R2UZL2BEZBRZ,RZND4BRZ,NR£ 
D4R2U2NL2UZBR2, NRZD2R2D2U4 BR: 


9200 DIM LES (27) 

9210 FOR K=0 TO 26:READ LES(R): 
NEXT 

9220 FOR K=0 TO 9:READ NUS(K):N 
EXT 

9230 RETUAN 

9300 FOR K=1 TO LEN(AS) 

9310 BS=MIDS (AS, K, 1) 

9320 IF B$>="0" AND B5S<="9" THE 
N DRAW NUS (VAL (BS)):GOTO 9350 


9330 IF B5=" " THEN N=0 ELSE N= 
ASC(B$)-64 

9340 DRAW LES(N) 

9350 NEXT 


9360 RETURN 












LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NRnnanENO PRÓXIMO NÚMERONHHEEEHHI! 


PROGRAMAÇÃO BASIC 
Probabilidade, frequência e acaso. Programa lançador de moedas. 
O triângulo de Pascal. Distribuição de frequência. 


CÓDIGO DE MÁQUINA 
Ajude Willie em sua incansável busca do lanche roubado. 
Aprenda ainda a chamar as sub-rotinas da memória ROM. 


PROGRAMAÇÃO BASIC 
Trajetória de projéteis. Efeitos de diferentes campos 
gravitacionais. Simulação de parábolas. 





at 


SM 
UM) 


